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! 
: Require file for the ERF facility 
Version ‘v04-000' 


' 
leeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeReekekeneneeKeteeeeeeeeeereeeeereTeete 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL FQUIPRENT CORP ORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVE 


& 
® 
® 
® 
4 . 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
is ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY = 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ie CORPORATION. : 
® 
® 
& 
w 
® 
ie 


t® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PSR O Ree R REHEAT AAAAAAAAEAAAAAAAAAARAEHAKEKEHHAAKEAATEAeeeeeeeeeeees 


ee 
FACILITY: ERF, Errorlog Report Formatter 


; ABSTRACT: 

! This file contains definitions of general applicability to 

the error log report formatter (ERF) facility. 

; ENVIRONMENT : 

: VAX/VMS operating system. unprivileged user mode, 

AUTHOR: Elliott A. DRAYTON 7-Feb-1983 

; Modified by: 

: v03-006 SAR0283 Sharon A.Reynolds 22-Jul-1984 
Added build_fao_string and format string macros. 

‘ v03-005 EAD0144 Elliott A. Drayton 12-Apr-1984 
Changed Library to LIB. 

: vO03-004 SAR0247 Sharon A, Reynolds 9-Apr-1984 
Added cstring and store _strings macros. 

; v0O3-003 JMG0004 Joel M. Gringorten 29-Dec-1983 


ERFDEF .REQ;1 16-SEP-1984 16:50:39.5% Page 2 


Added Literals for histogram support. 


V03-002 SARO012 Sharon Reynolds, 18-Apr-1983 
Added literals for /summary support. 
v03-001 EAD0091 Elliott A. Drayton 13-Apr-1983 


Add Literals for report modes. 


SWITCHES ADDRESSING _MODE (EXTERNAL=GENERAL ,NONEXTERNAL=GENERAL) ; 


Psect global = EMB cats olobel ever lay share ,noexecute,read,write); 
Psect global = SYECOM (pic,global,overlay,share,noexecute,read,write); 


PSECT 
CODE = $code (PI 
OWN = SOWNS (PIC 
ere 


eiyieey: MODE (GENERAL) ) 
= 
PLIT = Split (P 


C,ADDRESSING_MODETGENERAL)); 


LITERAL 
ALlL_summ_out = 1, 
Brief_rep = 1, 
Dev_summ_out = 2, 
Dev_summ_upd = 5, 


! Brief report type 

! Output device summary type 

! Update device summary type 

! Output entry summary type 

! Update entry summary type 

' Full report type 

! Output memory summary type 

: aoe tster dump report type 

' Output volume summary type 

! Update histogram summary type 
' Output histogram summary type 


be | 
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oa 
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| 
| 
| 
| 
| 
} 
LIBRARY ‘SYSSLIBRARY:LIB'; ' VAX/VMS common definitions 
| 
False = 

DC$_ZERO_CLASS = 0; 


FIELD 
Desc_fields = SET 


Desc_one = (0,0,32,0], | 
Desc_two = £5 °6°35°03 

TES; 

MACRO 

| Define the SD macro, which will generate static string descriptors. 
SLA] = Global bind Zname(A,'_DESC*) = SDESCRIPTOR(A) 2%, 


ee ‘ ' 
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: Define message vector offsets 


sete ae Sat 


nsgty a : i he 
nsgsu-FA0 FAD gare 

a HA ee 
driver type = 18, 6° 6 , 


! 
' CLI PARSING MACROS -- 
: Determine if a command Line entity is present or get its value 


GET_PRESENT (STRING) = 
BEGIN 


EXTERNAL ROUTINE CLISPRESENT: ADDRESSING_MODE (GENERAL); 
3) anal (AD (STRING)) 


GET_VALUE (STRING, DESC) = 
BEGIN 


EXTERNAL oe be CLISGET VALUE: ADDRESSING_MODE (GENERAL); 
gu iecet. VALUE ( AD (STRING), DESC) 


HCALL FUNCTION MACRO -- 
This macro executes COMMAND and test the returned status. 


CALL_FUNCTION (command) = 
BEGIN 


LOCAL 
status; 


status = command; 
If NOT .status 


N 
RETURN .status; 
NDZ, 


A) Macro to describe a string 

B) Macro to generate a quadword string descriptor 

C) Macro to generate the address of a string descriptor 
D) Macro to abbreviate last macro 


PRIMDESC () = XCHARCOUNT (ZSTRING (ZREMAINING)) 
STRING (ZREMAINING))&, 
INITDESC () = bf ck CoSC$C_S_BLNJ 


NN eee eee 


| 
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INITIAL (PRIMDESC (ZREMAINING))%, 
~ + ee (} = = tos IT (PRIMDESC (ZREMAINING))2, 
DDRDESC (ZREMAINING)Z, 


' 
: Define a macro that generates pointers to counted ascii strings. 


CSTRING (string) = Uplit byte (ZASCIC string) %, 


i Define a macro (PUT_STRING) that will describe a string. 
! Define a macro (STORE STRINGS) | that will allocate a block of quadvord 
stri eqscriptors and initialize them with the specified text. 


l for 
STORE meTRINGS (name ‘= Syseripter table (to be appended to ‘'_desc_tbi"), 
ea te Ss; 


PUT_STRING Cstring) = ZCHARCOUNT(ZSTRING(string)), 
Uplit (ZSTRING(string)) 2, 


o 
oe 


STORE STRINGS (name) = 


Literal 
Iname(istring(name,'_number’)) = (Zlength - 1) ; 


emteatainns \ 7:1 ™ desc _ ” : 
KVECTOR Ciname(name, ber'),2] 
Pnitiel (PUT STRING CERERATNINGS >; %, 


i | ettns a macro that will build an fao control string. 
i repeat_cnt = number of times to repeat the string. 
: string = the string. 
; dst_dest = address of destination descriptor. 
GUILD _FA0_STRING (repeat_cnt,string,dst_desc) (] = 
egin 
Bind str_desc = ZASCID string : SBBLOCK ; 
Incr I from 1 to repeat_cnt do 
mo 
C VE (.str_desc qechu length) 
-str “descldsc acpointer), 
dst_desc ds<$a_ pointer)+,dst depcldec wi “geet « : 
Dst _descldse$a length -dst_desc(dsc$w_length 
.str_desc(dsc$w_length 


BUILD FAD. STRINGCEREMAINING) : 
End 2; 


Define a macro that will call SFAOL to format a string. 
FORMAT_STRING (fao_str,dst_desc,arg_ist) = 


9 
2 


—_ 
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Begin 

If NOT (status = SFAOL( CTRSTR = .fao_str, 
OUTBUF = dst_desc, 
OUTLEN = dst_desc, 
PRMLST = arg lst) ) 


nd . 


SSHR Juanes - a macro which defines facility-specific message codes 


which are based on the system-wide shared message codes. 
SSHR_MESSAGES( mame, code, (msg,severity), ... ) 


where: 
*“‘name’’ is the name of the Cog tt ity (e.g., COPY) 
6 ‘is the corresponding facility code (e.g., 103) 
“as os. is the name of the shared message (e.g., “BEGIN) 
“severity’’ is the desired message severity (e.g., 1, 0, 2) 


SSHR ihe FACILITY_NAME, FACILITY_CODE ) = 
SHREMSG. IDS( FACILITY_NAME, FACILITY_CODE, ZREMAINING ); 2%, 


— IDS( FACILITY NAME, FACILITY CODE) C VALUE J = 
HPSMSG_CALC( FACILITY. ANAME, FACILITY _CODE, TREMOVE (VALUE) )%, 


SHRSMSG_CALC( FACILITY waste FACILITY_CODE, MSG ID, , SEVERITY 
ZNAME (FACILITY_N (MSG_ID) = NAME ( (° SAR $'".MSG_ID) ; FACILITY. CODE*65536 + 
LIF F EDECLARED( WANE STSSK_', SEVERITY) 
XTHEN ZNAME('STSS$K_' xe EvéRi TY) 


a 
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SSHR_MESSAGES (MSG,8, 


' eeereresr eeeteererene 

: * NAME * * SEVERITY * 

' gererere eeeearereree 
(SEARCHFAIL, ERROR), 
(OPENIN RROR), 
(READERR, RROR), 
(CLOSEIN, RROR), 
(OPENOUT, RROR), 
(Ura TEER. ROR), 
(CLOSEOUT, RROR), 
(CREATED, INFO), 
(EXISTS, INFO) 
(SYNTAX, SEVERE), 
CINVQUAVAL, SEVERE), 
sce CU. INFO), 


16-SEP-1984 16:50:39.5% Page 6 


; DEFINE MESSAGE CODES ; 


COMMON 1/0 AND MISC. MESSAGES 


LARA RRAASAL LSS & I 


* DESCRIPTION * 


LARA RASSSAA ASS Sf 


Error while searching for file 
inable to open or connect to input 
rror while roeetng input 

Unable to close output 

Unable to create, open, or connect 


to eytput 
Error while han output 
Unable to beeg: output 

File (or directory) created 

File (or directory) already exists 
Parse ses ture 

Invalid quel fier value 
Conflicting qualifiers 


—_ 
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